!c--------------------------------------------------------------------------
!c     soil_dble.inc for tapete_*_dble.for (Europe)              01.09.04  gy
!c--------------------------------------------------------------------------

    MODULE soil1pix_dble

    IMPLICIT NONE
      integer nsl,nos

      parameter (nos=1)         ! number of soils
      parameter (nsl=4)         ! number of soillayers + 1 !!!

      integer nOfLayers,lowbouZero
      double precision pond,albedo,infill,  &
       runoff,actEvap,effPsi,interc,  &
       drainage

 !     common/soiltyp/nOfLayers,lowbouZero,pond,albedo,infill,  &
 !      runoff,actEvap,effPsi,interc,drainage


      double precision  thick(nsl),zz(nsl),lambTemp(nsl),spHeatCap(nsl),  &
       SOM(nsl),Temp(nsl),hFlux(nsl),lambA(nsl),lambB(nsl),    &   ! som: read, but never used
       lambC(nsl),lambD(nsl),lambE(nsl),kSat(nsl),thetaR(nsl),  &
       thetaS(nsl),thetaMax(nsl,nos),vgN(nsl),vgM(nsl),vgAlpha(nsl),   &
       theta(nsl),psi(nsl),qH2O(nsl),  &
       qSatFlow(nsl),soilCond(nsl),cOrg(nsl),k1(nsl),k2(nsl),   &
       fractK1(nsl),respTP1(nsl),respTP2(nsl),respTP3(nsl),bd(nsl),   &
       respFP1(nsl),respFP2(nsl),respFP3(nsl),envFac(nsl),resp(nsl),   &
       rootDens(nsl),rootUp(nsl),psiRoot(nsl),bb(nsl)

!      common/soillayer/thick,zz,lambTemp,spHeatCap,bd,SOM,Temp,hFlux,  &
!       lambA,lambB,lambC,lambD,lambE,kSat,thetaR,thetaS,thetaMax,  &
!       vgN,vgM,vgAlpha,theta,psi,qH2O,qSatFlow,soilCond,  &
!       cOrg,k1,k2,fractK1,respTP1,respTP2,respTP3,respFP1,respFP2,  &
!       respFP3,envFac,resp,rootDens,rootUp,psiRoot,bb
!c--------------------------------------------------------------------------

    END MODULE soil1pix_dble
